home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / superedt / s_weapon.bas < prev    next >
BASIC Source File  |  1991-10-18  |  2KB  |  65 lines
  1. 1000 '
  2. 1010 '            ＳＵＰＥＲ　大戦略
  3. 1020 '                 ＷＥＡＰＯＮ　ＥＤＩＴＯＲ
  4. 1030 '                          FOR FM-TOWNS
  5. 1040 '
  6. 1050 '     注、ＰＡＲＡＭ．ＤＡＴを書き込み可にしておくこと。
  7. 1060 '
  8. 1070 SCREEN@ 0:CLS:COLOR 7,0,7,0:DEFINT A-Z:WIDTH 80,25:CONSOLE 20,4,2
  9. 1080 DIM DAT$(5),WEAPON$(15),X(3)
  10. 1090 DEF FNWEAPON(X,I)=ASC(MID$(WEAPON$(I),X,1))
  11. 1100 X(0)=0:X(1)=26
  12. 1110 OPEN "PARAM.DAT" FOR INPUT AS #1
  13. 1120 DAT$(0)=INPUT$(131,1)
  14. 1130 DAT$(1)=INPUT$(141,1)
  15. 1140 DAT$(2)=INPUT$(120,1)
  16. 1150 DAT$(3)=INPUT$(46,1)
  17. 1160 LOCATE 0,0
  18. 1170 PRINT "  名前                    優先順位"
  19. 1180 FOR I=0 TO 15
  20. 1190  WEAPON$(I)=INPUT$(18,1)
  21. 1200 NEXT
  22. 1210 DAT$(4)=INPUT$(128,1)
  23. 1220 CLOSE #1
  24. 1230 LOCATE 2,17:PRINT "ＥＮＤ":Y=1:X=0
  25. 1240 FOR I=0 TO 15
  26. 1250  LOCATE 2,I+1:PRINT MID$(WEAPON$(I),1,15)
  27. 1260  FOR J=0 TO 2
  28. 1270   LOCATE J*10+28,I+1:PRINT USING"###";FNWEAPON(J+16,I)
  29. 1280  NEXT
  30. 1290 NEXT
  31. 1300 *LOOP
  32. 1310 K$=""
  33. 1320 WHILE (K$=" " OR K$="　")<>-1
  34. 1330  LOCATE X(X),Y:PRINT "○"
  35. 1340  K$=INPUT$(1)
  36. 1350  VX=(K$=CHR$(29) AND X>0)-(K$=CHR$(28) AND X<1)
  37. 1360  VY=(K$=CHR$(30) AND Y>1)-(K$=CHR$(31) AND Y<17)
  38. 1370  IF VY<>0 OR VX<>0 LOCATE X(X),Y:PRINT "  ":Y=Y+VY:X=X+VX
  39. 1380 WEND
  40. 1390 LOCATE 0,20:F=0
  41. 1400 IF Y=17 IF X=0 THEN *SAVE ELSE *LOOP
  42. 1410 IF X=0 GOSUB *NAMECHANGE
  43. 1420 IF X=1 GOSUB *優先順位
  44. 1430 IF F=1 CLS 1:GOTO 1240
  45. 1440 GOTO *LOOP
  46. 1450 *NAMECHANGE
  47. 1460  INPUT "NAME :",A$
  48. 1470  IF A$="" RETURN
  49. 1480  MID$(WEAPON$(Y-1),1,15)=LEFT$(A$+"               ",15):F=1
  50. 1490  RETURN
  51. 1500 *優先順位
  52. 1510  INPUT "優先順位 :",NO
  53. 1520  NO=NO AND &HFF
  54. 1530  MID$(WEAPON$(Y-1),16,1)=CHR$(NO):F=1
  55. 1540  RETURN
  56. 1550 *SAVE
  57. 1560 KILL "PARAM.DAT"
  58. 1570 OPEN "PARAM.DAT" FOR OUTPUT AS #1
  59. 1580 PRINT #1,DAT$(0);DAT$(1);DAT$(2);DAT$(3);
  60. 1590 FOR I=0 TO 15
  61. 1600  PRINT #1,WEAPON$(I);
  62. 1610 NEXT
  63. 1620 PRINT #1,DAT$(4);
  64. 1630 CLOSE #1
  65.